#!/usr/bin/perl

use strict;
use FindBin;
use File::Spec;
use File::Basename;

my $AUTO_HOME=$ENV{"AUTO_HOME"};
if ( !defined($AUTO_HOME) )
{
	my $path = File::Spec->catfile($FindBin::Bin, $FindBin::Script);
    $AUTO_HOME = dirname(dirname(dirname( $path )));
}

my $AUTO_EDT_HOME=$ENV{"AUTO_EDT_HOME"};
if ( !defined($AUTO_EDT_HOME) )
{
    $AUTO_EDT_HOME = "$AUTO_HOME/EDT";
}

my $AUTO_EDT_TOOLS=$ENV{"AUTO_EDT_TOOLS"};
if ( !defined($AUTO_EDT_TOOLS) )
{
    $AUTO_EDT_TOOLS = "$AUTO_EDT_HOME/tools";
}

my $AUTO_EDT_LOG_HOME=$ENV{"AUTO_EDT_LOG_HOME"};
if ( !defined($AUTO_EDT_LOG_HOME) )
{
	$AUTO_EDT_LOG_HOME = "$AUTO_EDT_HOME/log";
}

my $EDT_BAK_HOME = "$AUTO_EDT_HOME/backup";

unshift(@INC, "$AUTO_EDT_HOME/lib");
require EDT;    #解析模块


my $logon_str = ".LOGIN huzy,6f21fe9dcf8005a5";
my ($user, $passwd) = EDT::iceCode($logon_str);
print("user:". $user . "\n");
print("passwd:". $passwd . "\n");
